<init>
subevent(mapinit,);
zukan(warppos:*all,|=,mount);

item(check:eq,aT,1); if(nowres); mc(24,enegr,+=,(TS~Q,TSȂ,TSTL,TScgl)); endif;
#item(check:eq,aT,1); if(nowres); mc(12,enegr,+=,(TS~R(3),TSOyQ,TS}Q,TSZ藜Q)); endif;
#item(check:eq,aT,1); if(nowres); mc(12,enegr,+=,(TSOy,TSOyQ,TS},TS}Q,TSZ藜,TSZ藜Q)); endif;

subevent(yj4adbl,); if(nowres);
mc(24,enegr,+=,(`S~U,Ȃ`SR,TL`SR,cgl`SR));
#mc(12,enegr,+=,(`S~R(6),`SOyQ,`S}Q,`SZ藜Q,`SOy},`SOyZ藜,`S}Z藜,Ȃ`SOy(2),Ȃ`S}(2),Ȃ`SZ藜(2),TL`SOy(2),TL`S}(2),TL`SZ藜(2),cgl`SOy(2),cgl`S}(2),cgl`SZ藜(2)));
#mc(12,enegr,+=,(`SOyQ,`S}Q,`SZ藜Q,Ȃ`SOy,Ȃ`S},Ȃ`SZ藜,TL`SOy,TL`S},TL`SZ藜));
#`P``R,aP`aR,bP`bR,`P`bR,`P``S,xiS,ȂTL`S
#item(check:eq,aT,1); if(nowres); mc(24,enegr,+=,(TS`S,Ȃ``STS(3))); endif;
#item(check:eq,aT,1); if(nowres); mc(12,enegr,+=,(TS`S,Ȃ``S(2))); endif;
endif;



#V
<to2>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,float,=,0); changemap(^̎RQ); fade(in,(type=fade,color=000000,wait=16));
#mapname(0); 


#O
<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,29,-17,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#Oցij
<dropout>
sound(drop); fade(out,(type=fade,color=00ffff,wait=16)); fc(*actor,move,29,-17,center); fc(*actor,dir,=,d); fc(*actor,float,=,128); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


<getmark>
setmapdat(reset);
item(check:aleq|alpt|bank,̈,1); or; item(check:aleq|alpt|bank,,1); unif(nowres);
sound(warp); item(get,̈,1); text(1,(face=uam,swait=-1),w%ct2%it[*̈].nmri%cdxɓꂽI);
#evflagsw(getmark,=,1);
else;
#item(check:eq,̈,1); or; item(check:eq,,1); if(nowres);
text(1,(face=uam,lwait=0,select=҂\n҂Ȃ,islc=1),w%it[*̈].nmicx҂܂H\n%ct3Ċ҂ĂTȂǂ͗L܂B%cd);
#select2(reset); select2(+͂(id=0)); select2(+); select2(/); select2(*(cid=));
#evflag(*selected,==,0); if(nowres); item(lost:2,̈,1); item(lost:2,,1); endif;
evflag(*selected,==,0); if(nowres); item(lost:aleq|alpt|bank,̈,1); item(lost:aleq|alpt|bank,,1); endif;
#endif;
endif;
#fc(c5,apr,=,1); fc(c5,ani,=,0); subevent(recover,);


#<evweapon>
item(check:eq,,1); and; item(check:eq,,1); if(nowres);
text(1,(face=uam,lwait=0,select=߂\n߂Ȃ,islc=1),w%it[*].nmicxƁw%it[*].nmicxw%it[*̌].nmicxƁw%it[*̏].nmicxɖ߂܂H\n%ct3Ė߂ĂTȂǂ͗L܂B%cd);
#select2(reset); select2(+͂(id=0)); select2(+); select2(/); select2(*(cid=));
evflag(*selected,==,0); if(nowres); item(change:eq,,̌,1); item(change:eq,,̏,1); endif;
else;
evflagsw(pr_forest1,==,1); and; evflagsw(pr_forest2,==,1); if(nowres);
item(check:aleq|alpt|bank,,1); and; item(check:aleq|alpt|bank,,1); unif(nowres);
item(check:eq,̌,1); and; item(check:eq,̏,1); if(nowres);
subevent(evolution,);
#music(*silent); subevent(evolution,); music(*def);
#sound(warp); wait(64);
item(change:eq,̌,,1); item(change:eq,̏,,1);
text(1,(face=uam,swait=-1),w%ct2%it[*̌].nmic%cdxƁw%ct2%it[*̏].nmic%cdxAw%ct2%it[*].nmri%cdxƁw%ct2%it[*].nmri%cdxɐiIII);
#text(0,̌ɐiI); text(0,̏ɐiI);
else; text(1,(face=uam,swait=-1),Ƃ錕ƂƂ鏂ėׂB);
endif;
endif;
else; text(1,(face=uam,swait=-1),Q̐X̓ҁAXȂ鐹Ȃ͂𓾂B);
endif;
endif;

fc(c5,apr,==,0); if(nowres); fc(c4,apr,=,1); endif;
fc(c5,apr,=,1); fc(c5,ani,=,0);
subevent(recover,);


<trap>
#evflagsw(saveable2,=,0);
fc(*target,apr,=,0);
setmapdat(single,12,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);
setmapdat(single,13,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);
setmapdat(single,14,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);

#setmapdat(12,-18,71,73); setmapdat(12,-17,83,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);
#setmapdat(12,-18,63,73); setmapdat(13,-18,104,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);
#setmapdat(13,-18,103,73); setmapdat(14,-18,104,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);

#text(1,,̎d|͂̃C^YłiP[PjB);
text(1,face=uam,̎d|͂̃gbv̂悤B);
#\nRэ~ĂŋÂłSB


#C̔
<box_kimagu>
#rand(9,1,2,3,4,5,6,7,8,9);
rand(1,10);
evflag(nowval,==,1); if(nowres); subevent(box_item(id(item:chyaku)),); end; endif;
evflag(nowval,==,2); if(nowres); subevent(box_item(id(item:)),); end; endif;
evflag(nowval,==,3); if(nowres); subevent(box_item(id(item:u[X^[)),); end; endif;
evflag(nowval,==,4); if(nowres); subevent(box_item(id(item:)),); end; endif;
evflag(nowval,==,5); if(nowres); subevent(box_item(id(item:)),); end; endif;
evflag(nowval,==,6); if(nowres); subevent(box_item(id(item:e)),); end; endif;
evflag(nowval,==,7); if(nowres); subevent(box_item(id(item:Wv)),); end; endif;
evflag(nowval,==,8); if(nowres); subevent(box_item(id(item:a)),); end; endif;
evflag(nowval,==,9); if(nowres); subevent(box_item(-1,10000),); end; endif;
evflag(nowval,==,10); if(nowres); subevent(box_item(-1,0),); end; endif;
#label(30); text(0,Aȏ͎ĂȂB);
#label(20);


#C̔
<brd_kimagu>
text(1,face=+evfch,́u܂̔vBo邩͂̂݁I\n%ct3łɓȂ悤ȕ͗L܂B\ng_ȕ󔠂͂ꂾłB%cd);
#ȊO̕󔠂͑SĒgŒłB
#text(1,face=+evfch,͂܂̔Bo邩͂̂݁I\nłʂȃACe͏oĂȂB);
#text(1,face=+evfch,͂܂̔Bo邩͂̂݁I@nYđSXށI\niłɓȂ悤ȕ͗L܂j);


<napegare>
fc(*actor,moved,y+); if(nowres); end; endif;
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
text(1,(face=napelest,swait=-1),iyXguMl̎҂ȁHIv);
#fc(*actor,moved,y+); if(nowres); text(1,face=garepest,KyXgu{NB|ȂƂ͋AȂv); else;
text(1,(face=garepest,swait=-1),KyXgu{NB|ȂƂ͒ʂȂv);
#endif;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=iyKy,bgm=battle2:0,stm=0,downefc=down3)); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); fc(c3,apr,=,0); end; endif;
evflag(*selected,==,3); if(nowres); fc(*actor,walk,1,8,-1,0,r); return; end; endif;


<garupade>
fc(*actor,moved,x-); if(nowres); end; endif;
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=Kpf,bgm=battle2:0,front=starfall00,stm=0,downefc=down3)); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); end; endif;
evflag(*selected,==,3); if(nowres); fc(*actor,walk,1,8,-1,0,r); return; text(1,face=uam,̕ӂэ~邵ȂB); return; end; endif;


<btlkaihi>
fc(c2,apr,==,1); and; not; fc(*actor,mvrgn,&,); and; evflagsw(ex_btkaihi,==,0); if(nowres); evflagsw(ex_btkaihi,=,1); text(1,face=uam,퓬̉ɐI); endif;
fc(*target,apr,=,0);
#fc(c2,apr,=,0);